home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / turbogen.prg (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  8KB  |  13 lines
  1. 100 PRINT "TURBOLOAD/VDOS CREATOR..."
  2. 110 OPEN 15,8,15:POKE 252,100:POKE253,09
  3. 120 DATA !,!.INSTRUCTIONS,END
  4. 130 READ F$:IF F$="END" GOTO 200
  5. 140 PRINT "CREATING FILE ";CHR$(34);F$;CHR$(34)
  6. 150 OPEN 8,8,8,"0:"+F$+",P,W"
  7. 160 INPUT#15,E,E$,E1,E2:IF E THEN PRINT E$
  8. 170 SYS 2375
  9. 180 INPUT#15,E,E$,E1,E2:IF E THEN PRINT E$
  10. 190 CLOSE 8:GOTO 130
  11. 200 CLOSE 15
  12. 210 PRINT "BE SURE TO READ THE INSTRUCTION FILE!"
  13.